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0001 C a8 
p06 : Version: *v04-000' At 
Bone Cote eee eee eee eA AHA ARE AHAAEAAAAAEKEREA AAA E THEATER Tee eeeeAeees oH 
® ® 
0006 C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY + gt 
0007 C* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. ” 1 
0008 Ce ALL RIGHTS RESERVED. * $1 
0009 ® 
0010 C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 01 
0011 C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 01 
Bog C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * gt 
001 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 1 
0014 C®* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 01 
9015 Ce TRANSFERRED. . a 
® ® 
0017 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 01 
0018 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 013 
9019 Cs CORPORATION. * ae 
& ® 
0031 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 013 
BOS¢ = SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 813 
® 
4 e * 013 
0095 RES EEE ER aR A Ss RTS SALE OOO a 
6 C 
0027 C AUTHOR BRIAN PORTER CREATION DATE 30-JAN-1980 014 
sos fe 
e594 c++ 014 
9031 c Functional description ate 
Cc 1 
0033 c This routine maintains a List of counts of error log entry types 014 
0034 c for different CPU's. The List has absolute Linkage and has the 014 
9035 C following format. 014 
00 Cc 015 
tH Cc poem rroscmoee nrc eec on wr em eos + 015 
00 c I flink I 015 
0039 c Fees ose ee en ene ae oe ereteere tt 015 
0040 «= ¢ 1 blink 1 015 
apes Cc en Rete: Bale ee at 
c oggin 
Bog Cc ¢reernen Logging eeecee eeeeee + ore 
0044 c 1 64 bit time of | oie 
9046 c I earliest entry | 016 
c ¢aeocce= ee seeeeeceeecoeoeocoeoeec a] a 016 
00468 32 ¢ 1 64 bit time of I Bie 
9 Cc goo mae} 16 
50 ¢ I latest entry I gig 
51 Cc deere eee we ceenee ee ee ne ee 16 
2g c I i 16 
54 c I I 16 
55 ¢ +-- 128 entry type --+ 16 
36 ¢ I buffers I 1? 
| 
| 
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ENT 


6089 SIERERE aDeteh er 1 
I | 
0 a : 
§ 
yam os 
doce I I 
0065 tae byte --+ 
Boos 1 histogram buffer 1 
7 +o- o-<4+ 
0068 I | 
9 eee --+ 
0070 
La! toeeceececes een ore ee em we + 
th Each entry buffer within the List has the following format 
0075 teenne- eoeeweewnneneneene + 


SOOCSSSOOSCOSOSCOOCOOO0O0 D000 OOH 000 W000 INNINGS 


PITIPIPIPIPINIPIPINIDD — 2 et 2 tt a to ot tt 


¢ 
: " 
c 0 
C 0 
C 0 
¢ 0 
C 0 
C 
C 0 
C 
C 0 
Cc 0 
C 0 
Ps 0 
C 0 
PS 0 
0076 C 1 I 0 
0077 C +=- entry title descr. --+ 0 
0078 C I I 0 
0079 Cc pees nee en ean enone rr eee ene + 0 
0080 ¢ 1 complete entry count 1! 0 
sie c 7 Rectan eeeceece eee ee oe ee I 
c ncomplete entry count 
008 Cc ¢oeererce sam erce nn ee ane we ee 0 
0084 c 0 
0085 C As entries are encountered in the error log file a search of the 0 
0086 c List is made for a list entry with the same logging SID. When a 0 
0087 C match is found then the appropriate rs buffer counter is updated. 0 
0088 c Valid entry typgs are in the range 1 to 255. Complete entry types 0 
0089 C are from 1 to 127, incomplete types are weighted by 128. 0 
0090 c Entry title descriptors that are zero indicate that this entry 0 
0091 c type for the particular Logging SID are unknown. 0 
0092 C The last entry buffer is used to count unknown entry types within 0 
009s ¢ and outside of the valid ranges. Q 
0094 C The histogram buffer is used to Stepley graphically the occurrance 0 
0095 C of processed records in the file for the given logging sid. 0 
0096 ¢ The buffer is dimensioned internally into twenty-four 16-bit integer 021) 
0097 c counters. As a record is processed by SYE the hour of the day 021 
0098 = value in EMB$Q_HD_TIME is used as an index into the array and the 021 
9099 c counter incremented. 8 . 
. 
O10) ¢ Modified by: 8 ; 
Cc | 
0108 c v03-005 EAD0002 Elliott A. Drayton 18-Feb-1984 021 
0104 C Add UVAX-1 suport. ; 
C 
0106 C v03-004 JMG0006 Joel M. Gringorten, 29-Dec-1983 
3424 C - Delete Histogram output from 9 suanory cutout 
4 é - Create routine Processed_entries_histo_output 
6156 C v03-003 SARO163 Sharon A. Reynolds. 13-0c t-1983 
111 C Added an SYE update that adds 11/7XX and ‘logmscp’ 
te f support. | 
114 C v03-002 SARO097 Sharon A. Reynolds, 20-Jun-1983 
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1§-Sep-19 4 90:38:96 VAX-11 FORTRAN V3.4-56 Page 3. ENT! 
-Sep-1984 14:22: DISKSVMSMASTER: CERF .SRCJSUMMARY.FOR;1 
3: Changed the carriage control in the ‘format’ statements 0 
a ¢ for use with ERF. 8 
118 C v03-001 BP0014 Brian Porter, 05-APR--1982 0 
11 c Added more mscp. 
‘a 
¢ee 
0 
18 4 
124 023 
125 subroutine entry_summary_update (cpu,entry,class,type) 0 Z, 
0199 054 
0128 ose 
0129 ; 0 . 
0130 include ‘src$:msghdr.for /nolist’ 85¢ 
0190 024: 
a it 
61 3 b 024' 
yte Lun 
0194 ; 0251 
aio? logical! cpu 8S2 
3944 logical! entry | $82: 
0199 lLogical*1 class $58 
0200 O25 
oso) lLogical*1 type | O52, 
0208 integer*4 buf fer1(2) | Os? 
5344 integert4 root_summary_flink 036 
5444 integer4 root_summary_blink | ase. 
9209 equivalence (root_summary_flink,buffer1(1)) | 026: 
0311 equivalence (root_summary_blink,bufferl(2)) 036 
0918 integer*4 buf fer2(531) 096 
0318 integers f link 0 : 
0317 integers4 blink | 6 
BY integer*4 logging_sid | 5 
5 $f integer*4 earliest_entry_time(2) | Lu 
3 § integer*4 lLatest_entry_time(2) | is 
5 integer*4 entry_type_buffer(4,128) 8 
; integer*2 processed_entry_histogram(0:23) : 
6 $5 parameter entry_title_descriptor_length = 1 8 


mM 4 
oki ooo ea 16-Sep-1984 00:28: VAX=11 FORTRAN ¥3.4-56 ® 4 ENT! 

ety 7 12:58:88 DISKSVMSMASTER: ERF .SRCJSUMMARY.FOR:1.>~ 
0230 028) 
8 1 parameter entry_title_descriptor_addre = 2 8 
8 g parameter unknown_entry = 3 8 . 
8 5 parameter complete_entry = 3 | 8 4 
8 i parameter incomplete_entry = 4 | 8 . 
8 4 equivalence (flink, buffer2(1)) : 4 
8 o} equivalence (blink, buf fer2(2)) 8 : 
. 48 equivalence (Logging_sid, buf fer2(3)) 9 
9 45 equivalence (earliest_entry_time,buffer2(4)) 830 
4 equivalence (Latest_entry_time,buffer2(6)) O30 
osep equivalence (entry_type_buf fer, buf fer2(8)) ote 
o¢2) equivalence (processed_entry_histogram,buf fer2(520)) 838 
0958 integers4 summary_list_entry_count O34, 
0255 integer*4 LibSextzv Ost. 
Oger integere4 summary_list_entry_address ost. 
0528 lLogical*1 LibSget_vm Oe 
e 1 logical*1 sys$numt im at 
es charactert24 timel oat 
3944 character*24 time2 033 
0367 lLogical*1 possible_invalid_time 033 
5544 integer*4 timcmp $35 
0971 integer*2 time_buffer(7) 039 
a oi 
74 | 

ost? c++ 
A} c functional description 3 
c | 

$578 c This entry point is used to create and update the List entries | 

79 c as the different error log entries for the various logging CPU's 

30 c making up the error log file are encountered. | 

cee 
3 | 3 
83 | 
Ba | | 
85 ; : 

86 if (root_summary_flink .eq. 0 34 
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0287 1 .and. 
8 ss 2 root _summary_blink .eq. 0) then 
0 39 root_summary_flink = Zloc(root_summary_flink) 
9 root_summary_blink = Zloc(root_summary_flink) 
0 38 root. - = yoflin 
° 32 summary list entry_address = root_summary_flink 
44 do 100,i = 1,summary_list_entry_count 
° 4 call move3 (%val(2076) ,Xval(summary_list_entry_address),flink) 
Bens if (emb$l_hd_sid .eq. logging_sid) then 
0808 possible_invalid_time = .false. 
Bene 
0305 c 
0306 c unknown entry type 
0307 c 
0308 
$384 10 if (.mot. entry) then 
0311 entry_type_buf fer (unknown_entry,128) = 
bag 1 ent?y tybe_butftertunknown, entry. 128) +4 
0314 possible_invalid_time = .true. 
Bet? 
0316 c 
REA C incomplete entry type for a known cpu type 
C 
0319 
0320 else if ( 
0321 1 cpu 
B35§ 1 and 
03 1 entry 
0324 1 .and. 
0325 1 emb$w_hd_entry .ge. 128 
oe $ 1) then 
0328 entry_type_buffer(incomplete_entry, lib$Sextzv(0,7,emb$w_hd_entry)) = 
0380 1 enthy tybe_ butter incomplete encry.|ipsextzvi0.?,embSu_fd entry?) +1 
a possible_invalid_time = .true. 
3 c 
: c device entry for a known cpu with an unknown device 
C 
3 else if ( 
8 1 cpu 
9 1 .and. 
? ' (Cemb$u_hd_entry .eq. 1 
or. 
; 1 emb$w_hd_entry .eq. 96 
t sOPo 
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-Sep-19 DISKSVMSMASTER: CERF .SRCJSUMMARY.FOR; 
4 1 emb$w_hd_entry .eq. 98 , 940 
§ 45 re aw —" | 40 
6 2 endgu_hd_entry eq. 99 40 
0 3 1 emb$w_hd_entry .eq. 100) 40 
0 1 .and. 40 
0 29 1 (.not. class 40 
0351 , Of. ot 
8 26 1 .not. type))) then | e's 
0 24 entry_type_buf fer (unknown_entry,128) = 041! 
8 2? 1 entry_type_buffer(unknown_entry,128) + 1 Re) 
0357 C 041 
Bee : unknown cpu type (implies that all entries are unknown) Oc 
0 1 
O36 else if (.mot. cpu) then | Ret 
b3e8 entry_type_buffer(unknown_entry,128) = | O41 
baee 1 entry_type_buffer(unknown_entry,128) + 1 be 
ty possible_invalid_time = .true. be 
0368 O42 
0369 c known entry type for a known cpu 04 
0370 | 042) 
0371 O42 
O37@ else if ( | 042' 
037 1 cpu 04 
0374 1 cand. beg 
$2 1 entry 043 
B59 1) then 045 
0378 entry_type_buffer(complete_entry,emb$w_hd_entry) = 043 
0379 1 entry_type_buffer(complete_entry.emb$w_fd_entry) + 1 043 
pane endif 043: 
Os if (.not. possible_invalid_time) then 
0384 if (timcmp(emb$q_hd_time,earliest_entry_time)) 20,25,25 
0386 20 call movq (emb$q_hd_time,earliest_entry_time) 
0388 25 if (timcmp(emb$q_hd_time,latest_entry_time)) 35,35,30 
390 30 call movq (emb$q_hd_time,latest_entry_time) 
Bs endif 
98 35 call movc3 (Zval(2068),logging_sid, 
Be 1 Zval(summary_list_entry_address + 8)) 
return | 
3 endif 
99 summary _list_entry_address = flink 
0400 


5 
ENTRY_SUMMARY _UPDATE 1 1984 00:28: VAX=11 FORTRAN V¥3.4-56 Pa 7 
30p71Sbe 10:38:88 DISKSVMSMASTER: CERF ..SRCJSUMMARY.FOR; 1 = 


100 continue 
if CLibSget_vm(((2124+7)/8)*8,summary_list_entry_address)) then 
call moveS (Zval(0),,%val(O), val (2124) ,buffer2) 
lLogging_sid = emb$l_hd_sid 
earliest_entry_time(1) = ‘fffffftff'x 
earliest_entry_time(2) = ‘7fffffff'x 
latest_entry_time(1) = 'O'x 


Ba88 


oO 
“ 


latest_entry_time(2) = ‘O'x 


call entry_summary_descriptor_load {Logging sid, 
1 entry_type_buffer(entry_title_descriptor_CTength,1)) 


call insque (%val(summary_list_entry_address) ,2val(root_summary_blink)) 
summary _list_entry_count = summary_list_entry_count + 1 


oto 10 
ordi t 
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return 


entry entry_summary_output (lun) 


c functional description 


c This qntry point is used when the processing of the error log 
c file is finished and the entry summaries are to be output. 


BEE 


summary_list_entry_address = root_summary_flink 
do 200,i = 1,summary_list_entry_count 


RPRRRRREKRLRRKKRRRREREEE 


DONOUEWN—O 


call movc3 (%val(2124),2val(summary_list_entry_address),flink) 
call frctof (lun) 
call Linchk (lun,3) 


yritetiyn. 119) 


logging_sid 
110 format(/' UMMARY or ALL ENTRIES LOGGED BY SID ',28.8,/) 
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190 
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do 190,j = 1,128 

if (entry _type_buffer(entry_title_descriptor_address,j) .ne. 0) then 

if (entry _type_buffer(complete_entry,j) .ne. 0 

2 entry_type_buffer(incomplete_entry,j) ene. 0) then 

call entry_summary_write (lun 

1 entry_type_buffer(entry_ itle_des riptor_length,j), 
entry_type_buffer(compléte entry.}) 
entry_type_buf fer(incomplete_entry,j)) 

endif 

endif 

continue 

call Linchk (lun,3) 

if (earliest_entry_time(1) .ne. ‘fff ffttf'x 

-and, 

earliest_entry_time(2) .ne. ‘7fffffff'x 


an . 
latest_entry_time(1) .ne. ‘O'x 


—b 2 5 


.and. 
latest_entry_time(2) .ne. 'O'x) then 

call sysSasctim(,timel,earliest_entry_time,%val (0) ) 
call sys$asctim(,time2,latest_entry_time,%val(0)) 
write(Lun,120) timel,time2 

format(/' *,t8,"DATE OF EARLIEST ENTRY',t40,a,/, 

1 t8,"DATE OF LATEST ENTRY',t40,a) 

endif 

summary_list_entry_address = flink 

cont inue 


return 


entry processed_entries_histo_output (Lun) 


functional description 


This qntcy point is used when the processing of the error log 
file is finished and the Histogtram summary is to be output. 


summary_list_entry_address = root_summary_flink 
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15 
i do 220,i = 1,summary_Llist_entry_count 
B28 call move3 (%val(2124),%val (summary _list_entry_address),flink) 
82 » call fretof (lun) 
05 ¢ call Linchk (lun,3) 
05 
B2 3 do 122,j = 0,23 
ge $ if (processed_entry_histogram(j) .ne. 0) goto 124 
be 8 122 continue 
0529 
0530 goto 150 
0531 
b236 124 call Linchk (lun,27) 
0534 write(lun,125) Loggin sid 
0535 125 format(/* *,*PROCESSED ENTRIES HOUR-OF-DAY HISTOGRAM LOGGED By SID ', 
0536 1 28.8,/) 
0537 
0538 do 145,j = 0,23 
0539 
Beco k = min(50,processed_entry_histogram(j)) 
054 write(lun,130) j,processed_entry_histogram(j),('*',l = 1,k) 
034s 130 format(' t t8,i oreo’ i?,". {teas 
0545 145 continue 
0546 
Eres 150 summary_list_entry_address = flink 
0549 220 continue 
0550 
0551 return 
0336 
055 
0554 
Oeee entry processed_entries_histo_update 
oa89 
0558 c++ 
B20 c Functional description: 
c 
0561 c This routine counts the entries that are processed 
0366 c during each hour of the day that they are logged. 
¢ee 

564 

39? 

567 : 7 

568 summary _list_entry_address = root_summary_flink 


do 300,i = 1,summary_list_entry_count 
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0378 call movc3 (%val(12),%val (summary_list_entry_address), flink) 
a if Cemb$l_hd_sid .eq. logging_sid) then 
0376 call moved (%val(48) ,Xval(summary_list_entry_address + 2076), 
bere 1 processed_entry_ histogram) 
4t44 if (sys$numtim(time_buffer,emb$q_hd_time)) then 
B28) rocessed_ent rye histogram(time_buffer(4)) = 
bens processed_entry_histogram(time_buffer(4)) + 1 
0584 call movc3 (%val(48) ,processed_entry histogren, 
0585 Xval(summary_list_entry_address + 2076) 
0586 endif 
0587 
0588 return 
0589 endif 
0590 
B23) summary_list_entry_address = flink 
$898 300 continue 
0594 
0595 return 
0596 
0597 end 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 1149 PIC CON REL LCL SHR EXE 
1 SPDATA 223 eit CON REL LCL SHR NOEXE 
‘ $SLOCAL 2552 ~—s PIC con REL LCL NOSHR NOEXE 
EMB 512 PIC OVR REL GBL SHR NOEXE’ RD 
Total Space Allocated 4436 
ENTRY POINTS 
Add:iess Type Name Address Type Name 
0-000001A9 ENTRY_SUMMARY_ OUTPUT 900000 00 ENTRY_SUMMARY_U 
0-000002E5 PROCESSED MENTRIES PHISTO. OUTPUT -000003F8 
VARIABLES 
Address Type Name Address Type Name 
2-000000046 I*4 BLINK AP- te L*1 CLASS 
AP-000000048 L*1 CPU $766 0000 I*4 EMBSL_HD_SID 
3-00000004 I*2 EMBSW_HD_ENTRY QOOOOOE I*2 EMBSW-HD-ERRSEQ 


VAX=11 FORTRAN 
DISKSVMSMASTER: 


RD NOWRT LONG 
RD NOWRT LONG 
RD WRT LONG 
WRT LONG 


ATE 
PROCESSED NENTRIES -HISTO_UPDATE 


sLeRP SR 
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§ | 
ENTRY_SUMMARY_UPDATE 1B-sen- 4 00: VAX=11 FORTRAN V3.4-56 Pa 11 
mt 1382 90 $8: af DI SKSVMSMASTER: CERF, SRCISUMMARY.FOR: 1 ” | 
i i 1*4 FLINK | 
- AQ I*4 J 
> AB [4 
AP- 48 L*1 LUN 
- ; I*4 ROOT SUMMARY _BLINK 
- 1*4 SUMMARY_LIST-ENTRY_ADDRESS 
- 62 CHAR TIME) 
AP-00000010a L*1 TYPE | 
ARRAYS 
Address Type Name Bytes Dimensions | 
-0000084C I*4 BUFFERI 8 ( 
~HoobHROe ted PARC EST ENTRY. TIME sind aD | 
-00000000 L*1 51g (6) :511) 
-00000006 I*4 EmMBSO IME (2) 
-0000001C I*4 ENTRY pe hy 2048 (4, 128) 
=00000014 [#4 LATEST ENTRY. TIME 8 (25 | 
-0000081C iss BROCES ESSED ENTRY HISTOGRAM 4 (0:23) 
-00000854 I*2 TIME_BUFFER 14 (7) | 
LABELS | 
Address Label Address Label Address’ Label Address Label Address Label Address Label 
0-00000054 10 ee 20 O-O000011E 25 wt 30 0-00000132 35 ee 100 
1-00000015 110° 1-00000045 120° * 122 0-00000349 124 1-00000083 125° 1-000000C4 130° 
we 145 0-000003E8 150 al 190 ee 200 ee 220 ae 300 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name | 
ENTRY_SUMMARY_DESCRIPTOR_LOAD ENTRY _SUMMARY_WRIVE FRCTOF 
INSQUE I*4 LIBSERTZV L*1 LIBSGET_VM | 
LINCHK HOV C Ove 
SYSSASCTIM L*1 SY SSNUMTIM 
| 
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subroutine entry_summary_descriptor_load (logging_sid,buffer) 


eeeeoeoss 


0010 c++ 
Bor) ¢ functional description 
c 

$018 Cc This routine constructs the entry type title descriptor 
0014 c for valid entry values for each CPU type. Unknown entry values 
0015 c for the particular CPU type are left zero. 
0016 c-- 
0017 
0018 
0020 
0031 integer*4 Logging_sid 
0098 integer*4 buf fer(2,2,128) 

35 integers4 sid_high_byte 

8 

5 


SS 


character*21 device_error 


= data device_error /"DEVICE ERROR BIT SET#'/ 
character*l4 machine_check 
data machine_check /*MACHINE CHECK*'/ 


character*10 wet fouls 


data sbi_fau /*SBI FAULT®'/ 


S8S888s8sssssss 
BURAERG 


39 character*10 sbi_alert 

Bee data sbi_alert /*SBI ALERT*®'/ 

poe character*13 soft_ecc 

ok data soft_ecc /"MEMORY ERROR*'/ 

$048 character*23 async_write 

094? data async_write /*SBI ASYNCHRONOUS WRITE*'/ 
8 character*l6 write_bus_error 

004 data write_bus_error /*WRITE BUS ERROR*'/ 


charactert19 hard_ecc 
C 


data hard_ec /"FATAL MEMORY ERROR*'/ 


character*13 volume_mount 
data volume_mount /*VOLUME MOUNT*'/ 


character*l6 volume_dismount 
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-Sep-19 DISKSVMSMASTER: CERF .SRCJSUMMARY.FOR; 1 
38 data = volume_dismount /*VOLUME DISMOUNT®"/ | 800 
0 character*l6  start_up 000 
1 data = start_up /*SYSTEM START-UP®'/ | Be8 
: character*l1 — power_fail | 000 
; data power_fail /*POWER=FAIL®'/ bon 
character*t19 new_logfile 000 
data new_logfile /*ERRLOG.SYS CREATED*'/ od 
44 character*l9 power_start got 
3070 data power_start /"POWER=FAIL RESTART®'/ $01 
0078 character*15 fatal_bugcheck 001 
0073 data  fatal_bugcheck /*FATAL BUGCHECK*'/ ooy 
0075 character*11 time_stamp 001 
bore data  time_stamp /"TIME-STAMP®' / id 
0078 character*16  ss_message 002 
data § sS_message /"SSNDERR MESSAGE®'/ 806 
0081 charactertl6 sys_bugcheck 002 
908 data  sys_bugcheck /*SYSTEM BUGCHECK®'/ aos 
0084 character*17 Op_message 002 
o089 data § op_message /"OPERATOR MESSAGE®'/ gos 
0087 charactertl6 nt_message 003 
0088 data  nt_message /*NETWORK MESSAGE*'/ 003 
0090 character*19 device_timeout 003 
9091 data device_timeout /*DEVICE 1/0 TIMEQUT®'/ O03 
6098 character*20 —sundefined_int 003 
saad data undefined_int /"UNDEFINED INTERRUPT®'/ O03 
0096 character*17 device_attention 005 
stad data device_attention /"DEVICE ATTEN” {ON*'/ oes 
0099 character*14 = user_bugcheck 004 
100 data user_bugcheck /"USER BUGCHECK*'/ Boe 
Big charactertl4  uba_interrupt 004 
+ data uba_interrupt /"UBA INTERRUPT®'/ | 
105 character*10 uba_error 
108 data uba_error /"UBA ERROR*'/ | 
108 charactert14  mba_interrupt 
1% data mba_interrupt /*MBA INTERRUPT®#'/ 
111 character*19 unknown_entry | 
i's data  unknown_entry /"UNKNOWN ENTRY TYPE®'/ 
114 character*15 MSCP_message | 
| 
| 
| 
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oan 


$ep-1984 00: 
ieosenn19Bs 00:28:36 
data MSCP_message /*ERLSLOGMESSAGE*'/ 
Character*12 mSCP_message2 

Data MSCP_messaged /*ERLSLOGMSCP®'/ 

character*14 mscp_software =Stotus 

data mscp_softwareé_status /*ERLSLOGSTATUS*'/ 
Character*22 environmental non} se 

Data environmental_monitor™ 7 ENVIRONMENTAL MONITOR*'/ 
Character*9 cpu_halt 

Data cpu_halt /*CPU HALT#'/ 

Character*15 console_reboot 

Data console_reboot ~ /*CONSOLE REBOOT*'/ 


sid_high_byte = LibSextzv (24,8, logging_sid) 


11/78) 


if (sid _high_byte .eq. 255 

1 33d high_byte -eq. 1) then 
buffer(2,1,1) = 
buffer(2,1,2) = 
buffer(2,1,4) = 
buffer(2,1,5) = 
buffer(2,1,6) = 
buffer(2,1,7) = 
buf fer(2,1,8) = Zloc(hard_ecc) 
buffer(2,1,9) = Zloc(uba_interrupt) 
buffer(2,1,12) = Zloc(mba_interrupt) 
buf fer(2,1,32) = 
buf fer(2,1,34) = 
buffer(2,1,35) = Zloc(new_logfile) 
buffer(2,1,36) = Zloc(power_start) 
buffer(2,1,37) = Zloc(fatal_bugcheck) 
buffer(2,1,38) = 


Zloc(device_error) 
Zloc (machine_check) 
Zloc(sbi_ fault) 
Zloc(sbi_alert> 
Zloc(soft_ecc) 
Zloc(async_write) 


Zloc(start_up) 
Zloc(power_fail) 


Zloc(time_stamp) 
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ENTRY _SUMMARY DESCRIPTOR LOAD 


buf fer(2,1,39) 
buf fer(2,1,40) 
buf fer(2,1,41) 
buf fer(2,1,42) 
buf fer(2,1,64) 
buf fer(2,1,65) 
buf fer(2,1,96) 
buf fer(2,1,97) 
buf fer(2,1,98) 
buf fer(2,1,99) 


buf fer(2,1,100) 
buf fer(2,1,101) 
buf fer(2,1,112) 


11/750 


Zloc(ss_message) 
Zloc(sys_bugcheck) 
Zloc (op_message) 
Zloc(nt_message) 
Zloc (volume_mount) 
Zloc (volume_dismount) 
Zloc(device_timeout) 
Zloc (undefined_int) 
Zloc(device_attention) 
Zloc(mscp_software_status) 

= Zloc(mscp_message) 

= Zloc(mscp_message2) 

= Zloc(user_bugcheck) 


else if (sid_high_byte .eq. 2) then 
buffer(2,1,1) = Zloc(device_error) 


buf fer(2,1,2) 
buf fer(2,1,6) 
buf fer(2,1,7) 
buf fer(2,1,8) 
buf fer(2,1,32) 
buf fer(2,1,34) 
buf fer(2,1,35) 
buf fer(2,1,36) 
buf fer(2,1,37) 
buf fer(2,1,38) 
buf fer(2,1,39) 


= Zloc(machine_check) 
Zloc(soft_ecc) 

= Zloc(write_bus_error) 
Zloc (hard_ecc) 


Zloc(start_up) 


= Zloc(power_fail) 


Zloc(new_logfile) 
Zloc(power_start) 
Zloc(fatal_bugcheck) 
Zloc(time_stamp) 
Zloc(ss_message) 


VAX=11 FORTRAN V3.4-56 
DISKSVMSMASTER: CERF .SRCJSUMMARY.FOR; 1 
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f-sep-1984 72:35:48 DISKSVMSMASTER: CERF .SRCJSUMMARY.FOR; 1 . 


| 
buffer(2,1,40) = Zloc(sys_bugcheck) | 
buffer(2,1,41) = %loc(op_message) 
buffer(2,1,42) = Zloc(nt_message) | 
buffer(2,1,64) = %loc(volume_mount) 
buifer(2,1,65) = Zloc(volume_dismount) 
buffer(2,1,96) = Zloc(device_timeout) 
bufter(2,1,97) = Zloc(undefined_int) 
buffer(2,1,98) = Zloc(device_attention) 
buffer(2,1,99) = Zloc(mscp_software_status) 
| 
| 
| 
| 
| 
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buffer(2,1,100) = Xloc(mscp_message) 
buffer(2,1,101) = Zloc(mscp_message2) 
buffer(2,1,112) = Zloc(user_bugcheck) 
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else if (sid_high_byte .eq. 3) then 
buffer(2,1,1) = Zloc(device_error) 
buffer(2,1,2) = Zloc(machine_check) 
buffer(2,1,6) = Zloc(soft_ecc) 
buffer(2,1,8) = Zloc(hard_ecc) 
buffer(2,1,11) = Zloc(uba_error) 
buffer(2,1,32) = Zloc(start_up) 

buf fer(2,1,34) = Zloc(power_fail) 
buffer(2,1,35) = Zloc(new_logfile) 
buffer(2,1,36) = Zloc(power_start) 
buffer(2,1,37) = Zloc(fatal_bug.ieck) 
buffer(2,1,38) = Zloc(time_stamp) 
buffer(2,1,39) = Zloc(ss_message) 
buffer(2,1,40) = Zloc(sys_bugcheck) 
buffer(2,1,41) = Zloc(op_message) 
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ooo 


buffer(2,1,42) = Zloc(nt_message) 

buf fer(2,1,64) = Zloc(volume_mount) 
buffer(2,1,65) = %loc(volume_dismount) 
buffer(2,1,96) = Zloc(device_timeout) 
buffer(2,1,97) = Zloc(undefined_int) 
buffer(2,1,98) = Zloc(device_attention) 
buffer(2,1,99) = Zloc(mscp_software_status) 
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$5) buffer(2,1,100) = Zloc(mscp_message) 
308 buffer(2,1,101) = Xloc(mscp_message2) 
; buffer(2,1,112) = %loc(user_bugcheck) 
36 11/7xx 


else if (sid_high_byte .eq. 4) then 
buffer(2,1,1) = Zloc(device_error) 
buffer(2,1,2) = Zloc(machine_check) 
buffer(2,1,4) = Zloc(sbi_fault) 
buffer(2,1,5) = Zloc(sbi_alert) 
buffer(2,1,6) = Zloc(soft_ecc) 
buffer(2,1,7) = Zloc(async_write) 
buffer(2,1,9) = Zloc(uba_interrupt) 
buffer(2,1,12) = Xloc(mba_interrupt) 
buffer(2,1,15) = Zloc(environmental_monitor) 
buffer(2,1,16) = Zloc(cpu_halt) 
buffer(2,1,17) = Zloc(console_reboot) 
buffer(2,1,32) = Zloc(start_up) 
buffer(2,1,34) = Zloc(power_fail) 
buffer(2,1,35) = Zloc(new_logfile) 
buffer(2,1,36) = Zloc(power_start) 
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nN 5 | 
0 cot nee be "BHee=H8Rs PO:B8Gs  YNCHAERRTTN Hat -kcosumany.ronstee” 
8 ; buffer(2,1,37) = Zloc(fatal_bugcheck) | 
8 5 buffer(2,1,38) = Zloc(time_stamp) 
8 ? buffer(2,1,39) = Zloc(ss_message) | 
° 23 buffer(2,1,40) = Zloc(sys_bugcheck) 
8 51 buffer(2,1,41) = Zloc(op_message) 
0 38 buffer(2,1,42) = Zloc(nt_message) 
0 33 bufter(2,1,64) = Zloc(volume_mount) 
8 rH buffer(2,1,65) = Zloc(volume_dismour.t) 
B28 buffer(2,1,96) = Xloc(device_timeout) 
O50! buffer(2,1,97) = %loc(undefined_int) 
O38 buffer(2,1,98) = Zloc(device_attention) 
B30? buffer(2,1,99) = Xloc(mscp_software_status) 
Seer buffer(2,1,100) = ZXloc(mscp_message) | 
ta 34 buffer(2,1,101) = Zloc(mscp_message2) | 
0571 buffer(2,1,112) = %loc(user_bugcheck) | 
0378 c 
0374 «¢ UVAX1 | 
in 
tee else if (sid_high_byte .eq. 7) then 
hte buffer(2,1,1) = Zloc(device_error) 
oan. buffer(2,1,2) = Zloc(machine_check) | 
038S buffer(2,1,6) = Sloc(soft_ece) | 

| 
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buffer(2,1,7) = Zloc(async_write) 

buffer(2,1,8) = Zloc(hard_ecc) 

buffer(2,1,32) = Zloc(start_up) 

buffer(2,1,34) = Zloc(power_fail) | 
buffer(2,1,35) = Zloc(new_logfile) 

buf fer(2,1,36) = Zloc(power_start) 

buffer(2,1,37) = Zloc(fatal_bugcheck) 

buffer(2,1,38) = Zloc(time_stamp) 
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ENTRY_SUMMARY _DESCRIPTOR_LOAD 


buf fer(2,1,39) 
buf fer(2,1,40) 
buf fer(2,1,41) 
buf fer(2,1,42) 
buf fer(2,1,64) 
buf fer(2,1,65) 
buf fer(2,1,96) 
buf fer(2,1,98) 
buf fer(2,1,99) 


buffer(2,1,100) = Xloc(mscp_message) 
buffer(2,1,101) = ZXloc(mscp_message2) 
buffer(2,1,112) = Xloc(user_bugcheck) 


buf fer(2,1,128) = Zloc(unknown_entry) 
do 10,i = 1,128 
buffer(1,1,i) = 33 


VAX=11 FORTRAN 


Pp 
DISKSVMSMASTER: « SRCISUMMARY .FOR; 1 


Zloc(ss_message) 
Zloc(sys_bugcheck) 

Zloc (op_message) 
Zloc(nt_message) 

%loc (volume_mount) 

ZLoc (volume_dismount) 
Zloc(device_timeout) 
Zloc(device_attention) 
Zloc(mscp_software_status) 


PROGRAM SECTIONS 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 


ENTRY_SUMMARY_DESCRIPTOR_LOAD 


VAX=11 FORTRAN V¥3.4=56 Page 20 
DISKSVMSMASTER: CERF .SRCJSUMMARY.FOR; 1 


Ifo sepc1 9B 00:28:36 


Name Bytes Attributes 

SCODE 101 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 57 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 

Total Space Allocated 1596 


Name 
ENTRY_SUMMARY_DESCRIPTOR_LOAD 


| 
| 
| 
| 
| 
Name Address Type Name | 
| 


-00000044 CHAR ASYNC_WRITE ~R00001 FE CHAR CONSOLE_REBOO’ 
-000001F5 CHAR CPU_H el dE CHAR DEVICE ATTENTION 
-00000000 CHAR DEVICE ERROR - $000 1 CHAR DEVICE- TIMEOUT 
1DF CHAR ENVIRORRENTAL MONITOR -000000DC CHAR FATAL_BUGCHECK 
CHAR HARD_ECC - ° 14 I*4 1 
@ I*4 LOGGING SID - 15 CHAR MACHINE CHECK 
192 CHAR INTERRUPT ~ 1B6 CHAR MSCP_MESSA 
1C5 CHAR MSCP_MESSAGE2 - 19 CHAR MSCP- OOF TORRE _STATUS 
CHAR NEW COGFILE - 1 CHAR NT_MESSAGE 
“Boo CHAR MESSAGE =QO0000AB CHAR POQER FAIL 
CHAR R_START - 8 O00 CHAR SBI_ACERT 
~090006 HAR SBI_FAULT - $ be 0 I*4 SID-HIGH_BYTE 
CHAR SOFT_ECC - $ OOF6 CHAR SS_MESSAGE 
HAR staat uP -00000106 CHAR SYS_BUGCHECK 
B mE_ STAMP -0000018B CHAR UBA-ERROR 
-000001 B CHAR bea A TWTERRUPT -0000014A CHAR UNDEF INED_INT 
-000001A3 CHAR UNKROWN_ENTRY “RORER IGE CHAR USER_BUGCRECK 
$-ponoooes CHAR VOLUME BiSROUNT -0000007E CHAR VOLUME_MOUNT 
-00000058 CHAR WRITE_BUS_ERROR 
ARRAYS | 
Address Type Name Bytes Dimensions | 
AP-00000008@ I*4 BUFFER 20468 (2, 2, 128) | 
LABELS | 
Address Label | 
te 10 
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5 
000 
80¢ 
Boe 
00C 
00 
00 
80 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
90 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
004 
00% 
004 
00% 
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FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
1*4 LIBSEXTZV 
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B38 


subroutine entry summery write (Lun, summary _title,complete_count, 


call Linchk (lun,1) 


SARUNSSS 


field = compress4 (complete_count) 


| 
| 
5 1 incomplete_count | 
36 
0008 
0009 C++ 
0010 C 
oot) ; This routine writes the summary totals to the Listing device. 
Sols == 
0014 
0015 
0016 
0017 
0018 byte Lun 
0019 
Base character*(*) summary_title 
5 integert4 complete_count 
ose integer*4 incomplete_count 
0026 integer*4 compress4 
0057 . . | 
pose integer*4 compressc 
00 integer*4 field 
00 
00 
00 
00 
00 
00 
0037 
0038 write(lun,10) summary_title,complete_count 
0039 10 format(’ °,¢8-a<compressc (summary_title)>,t<47 - field>, 
ne 1 i<field>,’.") 
Beg if Cincomplete_count .ne. 0) then 
pone field = compress4 (incomplete_count) 
0046 call Linchk (lun,1) 
sre write(lun,20) tynnery title, incomplete_count | 
9 20 format(' ',t8,"INCOMPCETE ',a<compressc (summary _title)>, 
0050 1 t<4? - field>,i<field>,'." | 
st endif 
6 
005 return 
Ope 
55 end 
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ENTRY_SUMMARY_WRITE 


PROGRAM SECTIONS 
Name 
0 SCODE 
1 SPDATA 
2 SLOCAL 
Total Space Allocated 


ENTRY POINTS 
Address Type Name 
0-00000000 ENTRY_SUMMARY_WRITE 


VARIABLES 
Address Type Name 
AP-0000000C@ I*4 COMPLETE _COUNT 
AP-00000010a I*4 INCOMPLETE COUNT 
2-00000004@ CHAR SUMMARY_TITLE 
LABELS 
Address Label 
1-00000004 10° 


Address Label 
1-0000001F 20° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
1*4 COMPRESS4 


Type Name 
I*4 COMPRESSC 


COMMAND QUALIFIERS 


Bytes 


zi 
44 


353 


ieSeer198e 90:38: 


Attributes 

PIC CON REL LCL SHR EXE’ RD 
PIC CON REL LCL SHR NOEXE RD 
PIC CON REL LCL NOSHR NOEXE AD 


Address Type Name 


2-00000000 I*4 FIELD 
AP=00000004@ L*1 LUN 


Type Name 
LINCHK 


FORTRAN /LIS=LIS$:SUMMARY/OBJ=0BJ$:SUMMARY MSRCS$: SUMMARY 


/ CHE CK= (NOBOUNDS , OVERFLOW, NOUNDERF LOW) 
/DEBUG= (NOS YMBOL § TRACEBACK ) 
/STANDARD= (NOS YNTAX, NOSOURCE_FORM) 
/SHOW= (NOPREPROCESSOR, NOINCLO 


DE ,MAP) 
/F77 /NOG_FLOATING 714 /OPTIMIZE /WARNINGS /NOD LINES /NOCROSS_REFERENCE 


¢¢ VAX=11_ FORTRAN Ys -4-56 
DISKSVMSMASTER: CERF .SRCJSUMMARY .FOR; 1 


NOWRT LONG 
NOWRT LONG 
WRT LONG 


/NOMACHINE_CODE /CONTINUATIONS=19 


wef 
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parte peat ea TESSEDnHRES (0:38:88 YMECAIMGRAIRAN.Y3s4"Skcosummany.roncf28* 24 


COMPILATION STATISTICS 


un Time 10.55 seconds 

phy Time: »46 seconds 
Page Faults: 4 
Dynamic Memory: 


0 pages 
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